Collection of Tools & Utilities/Collection of Tools and Utilities.iso/pascal/tptc17sc.zip/LJUST.INC

Text File | 1988-03-25 | 219b | 16 lines

(*
 * ljust - macro for left justified strings in writeln format
 *
 *)

function ljust(s: string; w: integer): string;
begin
   repeat
      s := s + ' ';
   until length(s) >= w;

   ljust := s;
end;